home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / proust1.sha < prev    next >
Text File  |  1994-03-01  |  499b  |  17 lines
  1. 1 CLS:CLEAR :A$="J":INPUT "P";N$:P$="P"+N$
  2. 5 RESTORE# P$:READ# t$:ERASE N$
  3. 10 READ# I,J:DIM T(I,J-1),M(I,J-1),D(I,J-1)
  4. 20 FOR U=1 TO I
  5. 30 FOR V=0 TO J-1
  6. 40 READ# T(U,V)
  7. 50 NEXT V:NEXT U
  8. 55 CLS:PRINT "Johnson ou Proust ?";:A$=INPUT$(1):IF A$<>"P" THEN IF A$<>"J" THEN 55 ELSE CLS
  9. 60 IF A$="P" THEN RESTORE#"M" ELSE GOTO #1
  10. 65 READ# t$
  11. 70 FOR U=1 TO I:FOR V=0 TO J-1
  12. 80 READ# M(U,V):NEXT V:NEXT U
  13. 85 READ# t$
  14. 90 FOR U=1 TO I:FOR V=0 TO J-1
  15. 95 READ# D(U,V):NEXT V:NEXT U
  16. 100 GOTO #1
  17.